=pst-node.tex
@arrowsize1.5pt 2
namedefpsas@>|@tbarsize @Tbar
0 CLW 2 div T
newpath
false @arrowinset @arrowlength @arrowsize @Arrow
namedefpsas@>|*0 CLW -2 div T
@tbarsize @Tbar
0 CLW 2 div T
newpath
false @arrowinset @arrowlength @arrowsize @Arrow
@expandafter@getdimnum2pt 2 0 nil
@@dotsize@number@dimg@@@dotsize@tempg
@dotsize/DS @@dotsize @@@dotsize CLW mul add 2 div def
@getscale1@dotscale
@dotscaleempty
@xdotscale1 @ydotscale1
@xdotscale@tempg
@ydotscale@temph
@Getangle0@dotangle
@@dotangle@temph
@defSD<0 360 arc fill>
@defSQ</r ED
r r moveto
r r neg L
r neg r neg L
r neg r L
fill>
@defST</y ED /x ED
x y moveto
x neg y L
0 x L
fill>
@defSP</r ED
gsave
0 r moveto
4 72 rotate 0 r L repeat
fill
grestore>
namedefpsds@*/Dot gsave T @dotangle @dotscale 0 0 DS @SD grestore def
namedefpsds@o/r2 DS CLW sub def
/Dot gsave T @dotangle @dotscale 0 0 DS @SD @usecolor0 0 r2 @SD grestore def
namedefpsds@square*/r1 DS .886 mul def
/Dot gsave T @dotangle @dotscale r1 @SQ grestore def
namedefpsds@square/r1 DS .886 mul def /r2 r1 CLW sub def
/Dot gsave T @dotangle @dotscale r1 @SQ @usecolorr2 @SQ grestore def
namedefpsds@triangle*/y1 DS .778 mul neg def /x1 y1 1.732 mul neg def
/Dot gsave T @dotangle @dotscale x1 y1 @ST grestore def
namedefpsds@triangle/y1 DS .778 mul neg def /x1 y1 1.732 mul neg def
/y2 y1 CLW add def /x2 y2 1.732 mul neg def
/Dot gsave T @dotangle @dotscale x1 y1 @ST @usecolorx2 y2 @ST grestore def
namedefpsds@pentagon*/r1 DS 1.149 mul def
/Dot gsave T @dotangle @dotscale r1 @SP grestore def
namedefpsds@pentagonDS .93 mul dup 1.236 mul /r1 ED CLW sub 1.236 mul /r2 ED
/Dot gsave T @dotangle @dotscale r1 @SP @usecolorr2 @SP grestore def
namedefpsds@+/DS DS 1.253 mul def
/Dot gsave T @dotangle @dotscale DS 0 moveto DS neg 0 L stroke 0 DS moveto 0 DS neg L stroke grestore def
namedefpsds@|@tbarsize CLW mul add 2 div /DS ED
/Dot gsave T @dotangle @dotscale 0 DS moveto 0 DS neg L stroke grestore def
ifundefinedpsds@*pstrickserrDot style `*' not definedeha@dotstyle*
@defFontDot<DS 2 mul dup matrix scale
matrix concatmatrix
exch matrix rotate
matrix concatmatrix
exch findfont
exch makefont
setfont
moveto 0 show dup 1 4 -1 roll put bind /Dot ED>
diamond*[1.9 0.0 0.0 1.9 -0.4598 -0.70775]SymbolE0
diamond[2.3 0.0 0.0 2.3 -0.8533 -0.5336]SymbolA8
oplus[1.44928 0.0 0.0 1.44928 -0.562319 -0.478261]SymbolC5
otimes[1.44928 0.0 0.0 1.44928 -0.562319 -0.475362]SymbolC4
+[2.2 0.0 0.0 2.2 -0.6039 -0.5863]Symbol2B
x[1.8 0.0 0.0 1.8 -0.495 -0.4788]SymbolB4
*[2.77778 0.0 0.0 2.77778 -0.638889 -0.813889]SymbolB7
asterisk[2.39808 0.0 0.0 2.39808 -0.589928 -0.821343]Symbol2A
@defEllipse</mtrx CM def
T
scale
0 0 1 5 3 roll arc
mtrx setmatrix>
@getangle0@gangle
@defDiamond</mtrx CM def
T
rotate
/h ED
/w ED
dup 0 eq
pop
CLW mul neg /d ED
/a w h @Atan def
/h d a sin @Div h add def
/w d a cos @Div w add def
ifelse
mark
w 2 div h 2 div
w 0
0 h neg
w neg 0
0 h
w 2 div h 2 div
/ArrowA moveto def
/ArrowB def
false @Line
closepath
mtrx setmatrix>
@defTriangle</mtrx CM def
translate
rotate
/h ED 2 div /w ED
dup 0 eq
pop
CLW mul /d ED
/h h d w h @Atan sin @Div sub def
/w w d h w @Atan 2 div dup cos exch sin @Div mul sub def
ifelse
mark
0 d
w neg d
0 h
w d
0 d
/ArrowA moveto def
/ArrowB def
false @Line
closepath
mtrx setmatrix>
@expandafter@@trimodeUemptyemptynil
@thisbox
@expandafter@@refcempty„nil
@expandafterifnextchar*@@@rot@@rot0nil
@defRotBegin<tx@Dict /TMatrix known not /TMatrix def /RAngle 0 def if /TMatrix [ TMatrix CM ] cvx def
/a ED
a @Rot
/RAngle [ RAngle dup a add ] cvx def>
@defRotEnd</TMatrix [ TMatrix setmatrix ] cvx def
/RAngle [ RAngle pop ] cvx def>
5pt
@expandafter@@refangle0nil
@defUput</a ED
add 2 div /h ED
2 div /w ED
/s a sin def
/c a cos def
/b
s abs c abs 2 copy gt
dup /q ED
pop exch pop ifelse
def
/w1 c b div w mul def
/h1 s b div h mul def
q
w1 abs w sub dup c mul abs
h1 abs h sub dup s mul abs
ifelse>
@defUUput</z ED
abs /y ED
/x ED
q
x s div c mul abs y gt
x c div s mul abs y gt
ifelse
x x mul y y mul sub z z mul add sqrt z add
q x s div x c div ifelse abs
ifelse
a @PtoC h1 add exch w1 add exch>
`=psn-beta.pro
@par@objectpstree@nodehook
nameusenodealignfalse
@@getlength2pt@radius
@checknum0@href
@vref.7ex
@expandafter@@framesize10pt nil
@getlength0pt@nodesepA@nodesepB@nodesepA
@getlength0pt@offsetA@offsetB@offsetA
@getlength10pt@armA@armB@armA
@getangle0@angleA
@angleB@angleA
@getangle8@arcangleA
@arcangleB@arcangleA
@checknum.67@ncurvA@ncurvB@ncurvA
@getlength1cm@loopsize
@getlength.4cm@boxheight@boxdepth@boxheight
@expandafterifnextchar:@@nrot@@rot0nil
@tempg@rot
@nrot@tempg
@tempa@tempaempty
@npos.5
@checknum@npos
@checknum.5@tpos
@tpos @<@
@tpos.5pstrickserrBad `tpos' value: `.5'. Must be 0<tpos<1epha
@tpos @>@
@tpos.5pstrickserrBad `tpos' value: `.5'. Must be 0<tpos<1epha
@shortput@nab^ =pst-node.tex
=pst-node.tex @par@objectnaput
_ =pst-node.tex
=pst-node.tex @par@objectnbput
sptoken =pst-node.tex ;''pst-node.tex @shortput;'';'';'';''pst-node.tex
@shortput@tablr^ =pst-node.tex
=pst-node.tex @par@objecttaput
_ =pst-node.tex
=pst-node.tex @par@objecttbput
< =pst-node.tex
=pst-node.tex @par@objecttlput
> =pst-node.tex
=pst-node.tex @par@objecttrput
;''sptokenpst-node.tex ;''pst-node.tex @shortput;'';'';'';'';'';''pst-node.tex
@shortput@tab^ =pst-node.tex
=pst-node.tex nameusetba
rlput
_ =pst-node.tex
=pst-node.tex nameusetab
lrput
sptoken =pst-node.tex ;''pst-node.tex @shortput;'';'';'';''pst-node.tex
@tempgnone@tempgnone
@shortput
ifundefinedpst@shortput@nonepstrickserrBad short put: `none'ehpa@shortputpst@shortput@nonepst-node.tex
1.5cm
1.5cm
@name
rc
@mcol
lc
@mcol
@mcol
@dimg-1pt@dimg<@
@mnodesize
@@mnodesize
@mnodesizeto@dimg sp@@mnodesize
ifundefinedmnode@Rpstrickserr0=`ifnextchar[0=`ifnextchar[psmatrix@i0=`psmatrix@ii@i0=`psmatrix@ii node `R' not defined.ehpa@mnodeR
ifundefinedmnode@nonepstrickserr0=`ifnextchar[0=`ifnextchar[psmatrix@i0=`psmatrix@ii@i0=`psmatrix@ii node `none' not defined.ehpa@emnodenone
`=@par@objectpstree@rootbox
@par@objectpstree@box
ifundefinedpstree@tightfitpstrickserrBad `treefit' parameter value: `tight'ehpa@treefitpstree@tightfit
ifundefinedpstree@tightfitpstrickserrBad `treefit' parameter value: `tight'ehpa@treefitpstree@tightfit
@̧psnodecnt
@̧pstreelevel
@̧pstreecnt
@par@objectpstree@cnt
@par@objectpstree@initsuccvalues
@par@objectpstree@stop
@par@objectpstree@stop=-987654321
@psrighttree
@par@objectpstree@do@par@objectpstree@down
@dimg.75cm@treesep@dimg
@dimg-1pt@dimg<@
@treenodesize
@treenodesize@dimggobble
@expandafter@ifstar@@levelsep2cmnil
nameusepstreeflipfalse
@par@objectpstree@savedshortput
@par@objectpstree@outer
nameusepsshowbboxfalse
@par@objectnclinenone
#1##2
treenodeifnextchar @par@objecttnput<1028>>@par@objectpstree@bboxadjust
@par@objectpstree@bboxadjust@par@objectpstree@showbbox
@par@objectpstree@node
>@
@par@objectpstree@edgeTT@shortput
@par@objectpstree@treebboxadjust
@@getlength1cm@fansize
@tempg@tempgempty
@tnsepsp
@@getlength@tnsep
@tnyref
@tnheight
@tndepth
@tempg@tempgempty
@tnpos@treemodebral
ifundefinedpstree@tnput@pstrickserrBad tnpos: `'ehpa@tnpos
namedefpstree@tnput@b@par@objectpstree@tnput@@v@dimd@thistnheight
namedefpstree@tnput@a@par@objectpstree@tnput@@v@dimc@thistndepth
namedefpstree@tnput@l@par@objectpstree@tnput@@h@dima
@dimg@hbox
@dimh
@par@objectpstree@box
namedefpstree@tnput@r@par@objectpstree@tnput@@h@dimb@par@objectpstree@box
@dimh
@dimg@hbox
@skiplevel
`=`;''